1 REM TURTLE-DEMO: 'BLUME'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 INPUT"ITERATIONSGRAD   4[157][157][157]";LE
25 INPUT"VERSATZWINKEL   80[157][157][157][157]";SU
30 !GRAPHICS:!INIT:!PEN0:!MOVE140,120:!PEN1
40 GOSUB100
50 !FINISH
60 :
100 IFLE=0THENRETURN
110 FORI=1TO4
120 !WALK10*LE:!TURNLSU:!PUSHI,LE:LE=LE-1:GOSUB100:!PULLLE,I
130 !TURNR90+SU
140 NEXT
150 RETURN